10 A$="PUBLICATION - READ IT !"
11 FORG=1TO40:IFLEN(A$)<40THENA$=A$+" "
12 NEXT
13 FOR A=LEN(A$) TO 0 STEP -1
14 PRINT RIGHT$(A$,LEN(A$)-A);"[145]"
15 NEXT
16 REM ********************************
17 REM *                              *
18 REM *  TEXT-SLIDE-FX BY ZEITGEIST  *
19 REM *      FOR PUBLICATION #6      *
20 REM *                              *
21 REM ********************************